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TITLE Combined Integer Print (DOI or SADOl) 

TYPE Closed with one program parameter 

TEMPORARY STORAGE 0, 1, 2 

IUMBER OF WGRDp 35 

PARAMETERS This routine at location p is called into use by the carders 



q. 


xy nP 

50 qF 


q + i 


26 pF 



DSBCRIPTICJf 



the iirteger in A 



print outs will occur 



The function digits hare the following logic when 1 < n < 12 

«•> «=■» ■ 

x ? 5 a sign is punched 

x " J a sign is not punched 

Y«0 zeros on the left ere replaced by spaces 

Y = 2 zeros on the left are punched. 

The routine prints an integer mod. 10*. For example, if 
is actually + 5906^3 and the value of n is k, then the following 



50 
52 
JO 
J2 



k 6^4-3 
fH)643 

! 6lf3 
0643 



Thus the routine will never hang up when the argument n is 
less than the number of digits in the integer* 

RESULTS WHE H n * 0. 

An additional feature is provided by the argument n * 0. In 
this case under the entry 50, JO a twelve place integer will be punched. The 
suppressed zeros however will not be replaced by spaces, thus greatly decreasing 
the output time. For example, if the numbers +3, + 567, - 8912 and -541231621527 
were to be punched the format under the n ■ entry is depicted on the next 
page* 



- 2 - 

50 OF JO OF 

+3 3 

+5^7 567 

-8912 8912 

-5^1231621527 5^1231621527 

The entries 52 OF and J2 OF are equivalent to the entries 
52 12F and J2 12F. 

The routine under the entry n = 12 -will punch correctly 
2 -1 and -2 ; which are respectively the greatest positive and greatest 
negative integer capable of "being placed in one location. 

NOTE The routine does not punch a space after the word. 
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ORDER 


NOTES IfcGE 1 , 





00 K(P13) 

kO F 

Ifl 2F 




Store n 


1 


S5 F 








I* 33L 




link 


2 


42 26L 








46 2F 




n to 2F 


? 


36 7L 






k 


kO IF 
L5 F 




1 




36 61 




print sign if 


5 


92 T08F 
22 6L 




'"desired 


6 


92 6kbj 
L5 IF 






T 


00 6F 
32 8L 






8 


^3 33L 








LI 2F 






9 


36 2?L 
IA 29L 






10 


kO IF 
50 34L 






11 


L5 12L 








76 F 






12 


10 36F 








40 F 




form first digit 


13 


L5 1? 




_ to be printed 




LO 32L 




in 


Ik 


36 i6l 








46 IF 






15 


75 31L 
22 12L 




. 


16 


L5 2F 


«■ 


T 




LO 32L 







p 13 



LOCATION 



ORDER 1 



NOTES 



PAGE 2 



P13 



17 


36 23L" 




Lk 33L 


18 


kO 2F 




L5 F 


19 


LO 33L 




36 29L 


20 


L5 F 




00 36F 


21 


82 kF 




10 ^4-OF 


22 


^3 33L 




26 15L 


23 


L5 F 




GO 36F 


2^4- 


82 kF 




L5 32L 


25 


k2 19L 




L5 3L 


26 


il-2 33L 




22 F 


2? 


L5 22L 




.lj-2 19L 


28 


L5 29L 




22 2L 


29 


00 12F 




92 96lF 


30 


10 11F 




26 15L 


31 


00 F 




00 10F 


32 


80 IF 




00 29L 


33 


80 F 




00 (l)F 


3^ 


57 3935F 




L£ 1510F 
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